5 FORI=49200TO49227:READA:POKEI,A:NEXT
10 POKE53280,0:POKE53281,0:PRINT"[147]"
20 PRINT"GRAPHICS FORMATTER"
30 PRINT"GEBEN SIE EIN: LO ODER HI GRAFIK:";
40 GETA$:IFA$=""THEN40
50 IFA$="L"THENN$="SAVED PIC.GFL":GOTO80
60 IFA$="H"THENN$="SAVED PIC.GFH":GOTO80
70 GOTO40
80 PRINTA$
90 PRINT"DISKETTE EINLEGEN UND TASTE DRUCKEN"
100 GETA$:IFA$=""THEN100
110 PRINT"[147]BITTE WARTEN.."
120 FORI=1TO13:A=ASC(MID$(N$,I,1)):POKE49151+I,A:NEXT
130 POKE184,1:POKE186,8:POKE185,0
140 POKE183,13:POKE187,0:POKE188,192
150 POKE780,0:POKE781,0:POKE782,32
160 SYS65493
170 IFPEEK(144)<>64THEN1000
280 PRINT"BITTE AUSGABEFORMAT WAEHLEN:"
290 PRINT"KOALA-PAINTER"
300 PRINT"PAINT MAGIC"
310 PRINT"MULTICOLOR FORMAT ART STUDIO"
315 PRINT"HIRES FORMAT ART STUDIO"
320 GETA$:IFA$=""THEN320
330 IFA$="K"THEN3000
340 IFA$="P"THEN4000
350 IFA$="M"THEN5000
355 IFA$="H"THEN2000
360 GOTO320
1000 PRINT"DISKFEHLER :"
1010 OPEN15,8,15
1020 INPUT#15,D1$,D2$,D3$,D4$,D5$
1030 PRINTD1$" "D2$" "D3$" "D4$" "D5$
1040 CLOSE15
1050 PRINT"TASTE!      "
1060 GETA$:IFA$=""THEN1060
1070 RUN
1100 PRINT"[147]AUSGABE FILENAME:";
1110 INPUTN$
1120 IFLEN(N$)=0THEN1100
1130 IFLEN(N$)>16THEN1100
1140 RETURN
1200 POKE184,1:POKE186,8
1210 POKE187,0:POKE188,192:POKE183,LEN(N$)
1215 FORI=1TOLEN(N$):A=ASC(MID$(N$,I,1)):POKE49151+I,A:NEXT
1220 RETURN
2000 FORI=17194TO17198:POKEI,0:NEXT
2005 GOSUB1100
2007 PRINT"[147]BITTE WARTEN.."
2010 N$=LEFT$(N$+"               ",12)+" PIC"
2020 GOSUB1200
2030 POKE251,0:POKE252,32:POKE780,251:POKE781,47:POKE782,67
2040 SYS65496
2050 IFPEEK(144)<>0THEN1000
2060 SYS64738
3000 PRINT"[147]BILD ZEICHENCODE   (A-P) :"
3001 GETA$:IFA$=""THEN3001
3002 IF(A$<"A")OR(A$>"P")THEN3001
3003 Q$=A$
3009 GOSUB1100
3010 PRINT"[147]BITTE WARTEN.."
3020 N$=LEFT$(CHR$(129)+"PIC "+Q$+" "+N$+"        ",15)
3030 POKE49201,0:POKE49203,32:POKE49209,43:POKE49211,67
3035 POKE49217,43:POKE49219,131:SYS49200
3040 B=PEEK(33578):C=PEEK(33577)
3050 FORI=33576TO34575:POKEI,B:NEXT
3060 POKE34576,C
3070 GOSUB1200
3080 POKE251,0:POKE252,96:POKE780,251:POKE781,17:POKE782,135
3090 SYS65496
3100 IFPEEK(144)<>0THEN1000
3110 SYS64738
4000 GOSUB1100
4010 PRINT"[147]BITTE WARTEN.."
4015 B=PEEK(17193):C=PEEK(17194)
4020 POKE49201,64:POKE49203,63:POKE49209,40:POKE49211,67
4025 POKE49217,232:POKE49219,99:SYS49200
4030 POKE49201,0:POKE49203,32:POKE49209,64:POKE49211,63
4035 POKE49217,64:POKE49219,95:SYS49200
4040 FORI=0TO113:POKE16270+I,PEEK(04575+I):NEXT
4050 FORI=0TO191:POKE24384+I,PEEK(04689+I):NEXT
4060 FORI=25576TO25599:POKEI,0:NEXT
4070 POKE25592,254:POKE24384,B:POKE24387,C:POKE24388,0
4080 GOSUB1200
4090 POKE251,142:POKE252,63:POKE780,251:POKE781,0:POKE782,100
4100 SYS65496
4110 IFPEEK(144)<>0THEN1000
4120 SYS64738
5000 B=PEEK(17194)
5002 FORI=17194TO17207:POKEI,0:NEXT
5005 GOSUB1100
5007 PRINT"[147]BITTE WARTEN.."
5010 N$=LEFT$(N$+"               ",11)+" MPIC"
5015 FORI=17208TO18207:POKEI,B:NEXT
5020 GOSUB1200
5030 POKE251,0:POKE252,32:POKE780,251:POKE781,32:POKE782,71
5040 SYS65496
5050 IFPEEK(144)<>0THEN1000
5060 SYS64738
6000 DATA 169,0,160,0,133,95,132,96,169,0,160,0,133,90,132,91,169,0,160,0
6010 DATA 133,88,132,89,32,191,163,96